home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / instant term boo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.4 KB  |  50 lines
  1. 1 sys65418
  2. 5 if a=1 then print"[144]":sys49152:print"":goto20
  3. 7 poke53280,.:poke53281,.
  4. 10 print"[147]"chr$(142)
  5. 20 print"           l o a d s t a r"
  6. 30 print"           [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  7. 40 print
  8. 50 print"             [153]presents    [129][160]"
  9. 60 print
  10. 70 print
  11. 80 print"       [158][169][146][169][169]  [146] [169]  [146] [169]    [146] [169]  [146] [169]  [146] [169]    "
  12. 90 print"      [169][146][169][169][146][169][169][146][169][169][146][169]    [169][146][169]  [169][146][169][169][146][169][169][146][169][169][146][169]  [169][146][169]"
  13. 100 print"     [169][146][169][169][146][169][169][146][169][169]  [146]   [169][146][169]  [169]  [146][169][169][146][169][169][146][169]  [169][146][169]"
  14. 110 print"    [169][146][169][169][146][169][169][146][169]  [169][146][169]  [169][146][169]  [169][146][169][169][146][169][169][146][169][169][146][169]  [169][146][169]"
  15. 120 print"    [169] [169] [169]   [146][169]   [169]   [169] [169] [169] [169]   [169]"
  16. 130 print
  17. 140 print"        [169]    [146] [169]  [146] [169]  [146][169] [169]    "
  18. 150 print"         [169][146][169]  [169][146][169]  [169][146][169][169][146][169] [169][146][169][169][146][169][169][146][169]"
  19. 160 print"        [169][146][169]  [169]  [146] [169]  [146][169] [169][146][169][169][146][169][169][146][169]"
  20. 170 print"       [169][146][169]  [169][146][169]  [169][146][169] [146]  [169][146][169][169][146][169][169][146][169]"
  21. 180 print"       [169]  [169]  [146] [169][146][169]  [146] [169][146][169][169][146][169][169][146][169]"
  22. 190 print
  23. 200 print
  24. 210 print"           by bob kodadek"
  25. 220 print"       [160]"
  26. 230 print"       [160]"
  27. 240 print
  28. 250 print"           [153]copyright 1987";
  29. 260 print"";
  30. 275 ifa=0thena=1:load"instant term.ml",8,1
  31. 280 print" [154]press space to continue"
  32. 285 geta$:ifa$<>" "then 285
  33. 300 print"[147]"
  34. 310 print"            instant term
  35. 311 [153]"print#            tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  36. 320 print"   ctrl a[152]) [154] run[158] instant term
  37. 321 [153]"        qprint#) cont exit back to loadstar
  38. 322 print"    enter selection[153] : [152](ctrl a[153] or q[152])   "
  39. 350 geta$:ifa$="" then 350
  40. 355 ifa$<>"q"then 350
  41. 400 print"[145] [153]      do you wish to quit? (y/n)    "
  42. 410 geta$:ifa$="y"ora$="[217]"then420
  43. 411 ifa$="n"ora$="[206]" then 300
  44. 414 goto 410
  45. 415 print"[145][145][145][145][145]":goto322
  46. 420 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  47. 421 if er<>63 then print"[147]":end
  48. 422 sys65418:load"hello connect",8,1
  49. 425 :
  50.